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This module contains routines that inplement the ACP control 
functions that operate on the quota file. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


3 
: 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 31-May-1979 15:18 
i MODIFIED BY: 


v04-003 CDS0009 Christian D. Saether 15-Nov-1984 
Expand test for clusterness to look at clu$gi_club. 


v04-002 eceoses Andrew C. Goldstein, 18-Sep-1984 18:35 
Count a writer to the quota file when enabling quotas 
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ee 


LIBRARY SYSSLIBRARY:L 18,152"; 
REQUIRE ‘SRCS:FCPDEF 832’; 


3 ¢ 38 1! v04-001 ACGOG66 Andrew C. Goldstein, \e $0p-1986 14:38 
: ? 23 : } Flush quota file blocks from cache when disab ing quotas 

: §5 11: v03-012 cos000g hristian D. Saether 9-Aug-1984 

: $ § } } ag vise potent rt altikeeker quota file caused 

: 58 ii 

3 $8 . 24 v03-011 CDS0007 Christian D. Saether 23-Aug-1984 

; 20 $ ! Mark quota fcb stale clusterwide when it is extended. 

; 6¢ 8 1/ V03-010 ACG0438 Andrew C. Goldstein, 18-Jul-1984 20:32 
- . "53 a Implement quota cache lock; dequeue when cache is released. 
: he} ty : } Use central dequeue routine. 

: 66 007¢ 7 v03-009 ¢CDS0006 Christian D. Saether 9-May-1984 

; 44 Book : Add serialization tall to flush _quo_cache veut ine. 

: 69 bore 1/ v03-008 CDS0005 Christian D. Saether 19-Apr-1984 

3 4 B28 : : Bump REFCNT in quota file fcb also. 

a 0078 1 | V03-007 ACG0412 Andrew C. Goldstein, | 22-Mar-1984 18:35 
ie 0079 1! Implement agent access mode support; add access mode to 

3 ie Reed ' protection check call 

: 7% OB 1 i v03-006 ACG0400 Andrew C. Goldstein, 7-Mar-1984 17:07 
Ee ag Ss 7! Implement cluster-wide quota cache, remove marking 

; re rf: : } of SCB for quotas. 

: 80 86 1} v03-005 cps0004 Christian D, Saether 1-Mar-1984 

: 1 fi ; Remove reference to FLUSH. FID. 

; j 89 1: v03-004 ceseee? Christian D. Saether ven eet mS 

: : 4 ! } Use L_NORM Linkage and BIND_COMMON mac 

; 86 0098 1 i v03-003 cps0002 Christian D. Seether 6-Dec-1983 

ie ie 0095 1! Volume lock check on quota file nodi fication request 

3 3 Baad : has changed. NOALLOC is no longer set 

: 90 009% 1 i v03-002 cps0001 Christian D. Saether 17-Oct-1983 

$ 4! sad ! had minimal quota checking support for xqp. 

; 3 st 1 v03-001 ACG0308 Andrew C. Goldstein, 14-Jan-1983 14:26 
: oe 1 ! : Fix consistency problems in Linking FCB's 

; % 1 i v02-005 acG0213 Andrew C. Goldstein, | 13-Aug-1981 13:42 
3 +4 ' } Remove write lock from quota file 

: 99 1: V02-004 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:27 
: ; Previous revision history moved to f11B.REV 

ik \ 

; 104 1 

; 105 ' 

; 1 

; oF 1 
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2 1105 1 QUOTA_FILE OP  : L_NORM NOVALUE, | ppneret quota file “From quot 

3; (1 11 1 FLUSH_ QUO FACHE : LENORM NOVALU ! lush dirty ne ¢ rom quota cache 
3; 11 11 1 DEACC-OF IC : LLNOR A, Seoeenus the quote 

; We 1108 1 RET _QENTRY : LINORM, i return quota file entry to user 

.- 39 1109 1 CONR_OF ILE L=NORM m NOVALUE ; ! connect the quota file 

; (116 1110 «1 MAKE _QFCB L=NORM : complete quota file access 


4 
12 . -32 V4.0-742 Page 
b-Jan-1985 13838 PET BSR abovAN TC os2;1 (2) 
“Oct-1984 12:45: 

eyoT AMT IL 


(ABD, FIB) : L_NORM NOVALUE = 
: Ng 111] } GLOBAL ROUTINE QUOTA_FILE_OP : 
; 118 118 | tes 
i 1113 |} FUNCTIONAL DESCRIPTION: ; 
i 16 7 sa is routine implements most of the ake open quote fils. ‘| 
3 1 § "ig 1; te. the ones that are performed on the op 
. 1 ; 
: 184 1120 7 | QUENCE : 
i 1¢5 Me tee e TRO F ICE OP CARGI, ARG2) : 
: 1 i 
; 1 | seth: ARG]: address of buffer descriptor packet ; 
: 198 1138 4 | ARG2: address of user FIB 
. 1 ; 
: 126 1! : 
: 182 ae ee TLEANUP. FLAGS: cleanup action and status flags 
: 3 § ie ft i CURRENT VCB: VCB of current volume - ; 
: 185 1 EOSPACEET C170 packet belng Brocessed ty Ag 
: } FREE QUBTAS receca number of first free quota e 
a ° ; 
: 1133 1! ; | 
: ie 1134 1 | OUTPUT PARAMETERS : 
; 140 NONE 
; 1136 1 | : 
Hs HE || rmusegr guts: scm ot quota tite : 
. oe ; - 
: 1139 1} : 
: 40 1140 i ROUTINE VALUE: 3 
; 16 ; 
: 1142 1 | : 
; af 1148 : Jews “quera tite searched, modified, etc. ; 
: 133 11465 1 | 
ee Bie 7 
: 136 11468 BEGIN ; 
Th), : 
‘ig  tai@ REF LOREEN CONG LMT ecto 3 
: 439 1136 FIB : REF BBLOCK; | user F 
3 15 
; 1154 
; 13 1136 5 “1TEPAY pecs per Lock = 512 / DOFSC_LENGTN, 
: 18) ae SA_QUOTA, 
2 fete 
: 194 1160 F [BSC“ROD-QUOTA; 
: 186 1161 F IBSC~ADD QUOTA 
* 16 HB c. 
; 18 118 m A_QUOTA, 
: 19 1185 RIN_OF UNC = MIN O TBSETERATOUOTA, 
i in 11 FIBSC~REM~QUOTA, 
* 472 1169 
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FIBSC_MOD_QUOTA, 
f IBSC_ADD QUOTA 
LOCAL 
TEMP, ! random temp storage 
TEMP2, ' more of the same 
FCB : REF BBLOCK, ! address of quota file FCB 
BUFFER : REF BBLOCK, ! disk block buffer 
Q_RECORD : REF BBLOCK, ! record found in quota file 
Q_BLOCK REF BBLOCK; ! quota arg block from user 
BIND_COMMON; 


EXTERNAL ROUTINE 


oy the j STALE : — NOVALUE , ! mark fcb stale clysteruide 


SERIAL FILE _NORM serialize on given file ; 
ALLOCATION LOCK : L_NORM, ' serialize on volume allocation 
SWITCH_VOLOM “NORM, ! switch volume context 

SEAR UOTA L_NCRM, ! find entry in quota file 

CHECK PROTECT : L_NORM, ! check file protection 
GET_QOOTA_LOCK L=NORM, ! take lock on quota cache entry 
REL_QUOTA_LOCK =: L_NORM, ! release lock on quota cache entry 
WRITE DIRTY : LINORM NOVALUE, ! write dirty buffers 

READ BLOCK : LINORM, ' read a disk block 

EXTEND CONTIG : L_NORM, ! extend a contiguous file 
WRITE_GUOTA : LINORM; ! write quota file record 


! Do the preliminary setup and validation. All operations handled by this 
! routine operate on RVN 1 of a volume set and require the quota file to 
be connected. 


SWITCH VOLUME (1); 

PRIMARY_FCB = FCB = .CURRENT_VCBLVCB$L_QUOTAF CB); 

IF .FCB EQL 0 

THEN ERR_EXIT (SS$_QFNOTACT); 

SERIAL_FILE (FCB CFCBSW_FIDJ); 

ALLOCATION_LOCK (); 

! Do additional validation which is common for several functions. All but 


! the disable function require a quota file search and require the quota 
argument block (P2) to be present. 


If fF IBLF IBSW_CNTRLFUNC] NEQ FIBSC_DSA_QUOTA 


BEGIN 
IF .ABDCABDSC_NAME, ABDSW_COUNT] LSSU DQFSC_LENGTH 


THEN ERR_EXIT™(SS$_INSFARG) ; 
Q_BLOCK = ABDCABDSC_NAME, ABDSW_TEXT] + .ABDCABDSC_NAME, ABDSW_TEXT) + 1; 


Q_ RECORD = SEARCH_QUOTA (.Q_BLOCKCDQFSL_UIC], .FIBCFIBSL_CNTRLVAL), .FIBCFIBSL_WCC), 0); 
IF .FIBCFIGSV_ALL-MEMJ 


QuOT AUT IL b-Jan-19 ; 1§: 19:43 YAR -11 Bliss-32 V4.0-742 Page 6 


“Oct-19 6 FIIX. BUGSRCJOUOTAUTIL.832; 1 (2) 
%0 5 OR .FIBCFIBSV_ALL_GRP) 
g 1 § THEN FIBCFIBSC ances = ,QUOTA_RECORD; 
¢ 3 ' ALL a | eee except disable and examine require write access to the 
! quota file; examine requires read access except when examining one's 
5 » own quota. 
: § IF _ .FIBCFIBSW_CNTRLFUNC) NEQ FIBSC_EXA_QUOTA 
7 5 ; CHECK_PROTECT (WRITE_ACCESS, 0, .FCB, 0) 
4 
4 8 If .FIBCFIBSV_ALL -fen 
44 9 4 .y Brocka Agl.6 
45 40 BL Ose eo L_U 
46 41 OC BACKETC IRPSL Ane). ARBSL -yicd 
47 og THEN. CHECK XROTeeT (READ_ACCESS, 0, .FCB, 0); 
re 4 END; 
250 ! ALL functions except disable and add require the quota file search to be 
51 ' successful. 
38 . 
rr ie -F IBCF IBSW_CNTRLFUNC) NEQ FIBSC_ADD_QUOTA 
56 IF .Q RECORD EQL 0 
$8 ra THEN ERR_EXIT (sss _NODISKQUOTA); 
5 o 


Dispatch on the function and do it. 


CASE. -FIBLF 1BSW_CNTRLFUNC FROM MIN_QFUNC TO MAX_QFUNC OF 


o v BEGIN” QUOTA): ! disable disk quotas 
8 IF . CLEANUP CS NPR IV SYSPRV) 
64 THEN” Eri Exit (Ss J; 
65 FLUSH_QU0_CA cH 03 
URITES DIRTY ); 
KERNEC_CALL (DEAEC _OFILE); 
3 END; 
CF IBSC_EXA_QUOTA]: ! examine quota file entry 


eur 


KERNEL CALL (RET_OENTRY, .@_RECORD, .ABD); 


w 


CF IBSC_REM_QUOTA): ! remove quota file entry 


IF .Q_RECORDCDOF$L_USAGE) NEQ 0 

THEN ERR STA Tus (S$ OVROSKQUOT a); 

KERNEL CALL (RET_QENTRY Rb 

GET QUOTA LOCK (7QUOTA A int r: eter K éxnnoe); 
OE SPILL tot OO OFse LENGTH, .Q “RECORD dy; 
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-0¢t-19 43:36 F11X.BUGSRC JQUOTAUTIL.B32;1 (2) 
: 287 1 3 WRITE_QUOTA (.Q RECORD): 
; 288 1 REL_QOOTA_LOCK T.QUOTA_INDEX); 
3 4 : : END; 
: 91 6 CFIBSCMOD_QUOTAI: ! modify quota file entry 
: 29 1288 IF .FIBCFIBSV_MOD_USE) 
> 294 1289 THEN 
: 295 1290 4 BEGIN 
: 296 1291 4 IF .BLOCK_LOCKID Fe 0 
: 297 1292 4 THEN ERR_EXIT (SS$_ACCONFLICT); 
: 38 93 4 QRECORDCDGF SL _USAGE = .Q_BLOCKCDQFS$L_USAGE); 
: 00 99 IF «f 18CF 188v_moD_PERM] 
; 0¢ 129 Q RE CORDCDOF SL PERMQUOTA] = .Q_BLOCKCDQF$L_PERMQUOTA]; 
3 y } 38 ear le F IBSV_MOD_OVER) 
; 305 1300 Q_RECORDCDOFSL_OVERDRAFT] = .Q BLOCKCDOFS$L_OVERDRAFT); 
; 306 1301 IF .Q-RECORDCDOFSL USAGE GTRU_.Q_RECORDCDOF $L~PERMQUOTA] 
: 307 1308 THEN ERR_STATUS (SS$_OVRDSKQUOTA); 
; 308 130 WRITE QUOTA (.Q RECORD); 
; 309 1304 KERNEC_CALL (RET_QENTRY, .Q_RECORD, .ABD); 
; 419 1306 END; 
: \ 1307 CF IBSC_ADD_QUOTA): ! add quota file entry 
: 31 1308 BE 
: 314 1309 IF .Q RECORD NEQ 0 
: 315 1310 THEN ERR_EXIT (SS$_DUPDSKQUOTA); 
: 16 1311 IF .FREE-QUOTA EQL~0 
: 31 1 i THEN 
: 318 1313 4 BEGIN 
: 319 1314 4 IF -FCBCFCBSL_FILESIZE) GEQU (1*24)/RECS_PER_BLOCK=1 
: 320 1315 4 THEN ERR_EXIT™ (SS$_DEVICEFULL); 
: i 1316 4 TEMP] = “FIBCEIBSW_CNTRLFUN ; 
: : 1317 4 TEMP2 = .FIBCFIBSL~CNTRLVAL); 
; 32 1318 4 Q@ RECORD = EXTEND CONTIG (.FIB, .FCB, 1): 
: 324 1319 4 MAKE FCB STALE (FCB); 
: 325 1320 4 F1B FIBSO_CNTRLFUNC = ,TEMPI; 
: 3 1321 4 FIBCFIBSL-CNTRLVAL) = .TEMP2; 
: 7 1 ; 4 FIBCFIBSL-EXVBN) = 0; 
: 328 1 4 END 
: 329 1324 3 ELSE 
: 1325 4 BEGIN 
: 31 6 4 Q_RECORD = READ_BLOCK (FREE QUOTA 1) /RECS_PER_BLOCK + .FCBCFCBSL_STLENI, 
: 3 ; 4 4 Q,RECORD = .Q_RECORD + ((.FREE_QUOTA-1) MOD RECS_PER_BLOCK) * DQFSC_LENGTH; 
: 335 1330 } 
F 1331 CHSFILL (0, DOFSC LENGTH, .Q_RECORD); 
: 33 1 é Q_RECORD Dar Sv_ACTIVE 2°1; 
: 38 1 Q-RECORD(DOFS$L“UIC) = .@_BLOCKCDQFSL_UIC); 
: 339 1 O-RECORDEDOFS$L“USAGE) = 70 BLOCKCDOF USAGE); 
; 340 1335 QO" RECORD DOF $t “PERMOUOTA) = .0_BLOCK(DGF L _PERMQUOTA); 
: 341 1 6 O-RECORD(CDOFSL-OVERDRAFT) = .Q~BLOCKCDQFS$L~OVERDRAFT): 
: 4@ z WRITE QUOTA (.0_RECORD); 
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346 1339 
3 rf } re CINRANGE, OUTRANGE): 0; ' should not be called with other functions 
: 347 1 4g TES; 
: 348 134 
: 349 1344 7 END: ! end of routine CUOTA_FILE_OP 
.TITLE QUOTAUTIL 
. IDENT yb DOsK 
.EXTRN MAKE Efe ogTate SERIAL_FILE 
eEXTRN ALL OEAT LOCK 
sEXTRN SWITC ar ohee SEARCH_QUOTA 
eEXTRN CHECK “PROTECT GET QUOTA LOCK 
EXTRN Ret QOOTA_LOCK, WRITE DIRTY 
EXTRN READ BLO OCk EXTEND_CONTIG 
EXTRN WRITE_O 
PSECT S$CODES,NOWRT,2 
03FC 00000 ENTRY QUOTA_FILE 0p, save R2,R3,R4,R5,R6,R7,RB,RO ; 
59 0000G CF of 000 VAB WRITE “QUOTA, : 
01 oD 0000 PUSHL : 
00006 CF 01 FB 00009 CALLS Sw TCH_ VOLUME : 
50 98 AA 00 90006 MOVL ae BASE) RO ; 
58 54 ad D0 0001 MOVL  84(RO), FCB : 
08 AA 58 DO 00016 MOVL CB, 8(BASE) : 
05 12 OOO1A BNEQ ~=«'1$ : 
03D4 «BF BF 001¢ C #980 : 
4 00020 RET : 
24 AS 9F 00021 1$: PUSHAB 36(FCB) : 
0000G CF 01 FB 00024 CALLS #1, SERIAL_FILE ; 
00006 CF 00 FB 0029 CALLS 4&0. AL OCATION LOCK : 
50 08 AC 00 000 : MOVL Fl R : 
OA 16 Ad B81 000 CMPW (RO), #10 F 
0 1¢ 00 BNEQ $ 3 
OO8F 3 BRW os : 
50 06 ac 00 2s: MOVL ABD RO 3 
20 12 Ad 61 F CMPW 3s 18 (RO), #32 ; 
05 ie 9043 BCEQU 3$ : 
0114 = BF BF 04 CHMU = #276 : 
51 06 AC pO O00¢n 38 MOV. ABD, RI ; 
50 10 al 3 $od MOVZWL 1gcR1) RO ; 
57 11 E 000 v 17(R1) ERO}, @_BLOCK ; 
E CLRL <-(SP) : 
08 9 VL FIB, RO : 
10 PUSHL 16(R0) : 
18 60 PUSHL  24(RO) : 
04 : PUSHL 4(Q_ BLOCK) : 
CALLS #4, SEARCH QUOTA : 
MOVL RO, Q RECORD : 
MOVL 16, RO : 
BL8S 24 (RQ) 4$ ; 
76 BBC #1, 24(a0), 58 ; 
00078 4$ MOVL 692(BASE), 16(RO) : 
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: 1281 


; 1282 


; 1283 


; 1258 


15$ 
8 (BASE) 
, RET_QENTRY 
LOCK 
“,95* (Q_RECORD) 


4 (BASE) 
(SPT, #0, 


Q_ RECORD 


aT 


1, le 


Q_RECORD 


(BASE) 
, REL_QUOTA_LOCK 


» GET_QUOTA 
i RRETE QUOTA 


. WRIT 
704 (BASE) 


#0 
#1 
#1 
#0, DEAC 
J 
rH 
7 
s 
a 


me VOWUMEVOOO-- <— 
DWINOOVOOOMOVYO 


02c0 
69 
02c0 


6€ 
0000G CF 


0000V CF 
0000G CF 


00 


20 


13 
QUOTAUTIL -Jan-1985 18:18:45 AX-11 Bliss-32 V4.0-742 Page 10 
yoes08$ B-Jan-1985 13:18:32 EFT ix BuGsReJagOTAU TIL 632;1 9 02) 
10 18 AO 02 £1 00131 16$: BAC #2, 24(RO), 18$ : 1288 
FF7C «OCA D3 1 TSTL He soteaces : 1385 
5 1 13A BNEQ 173 : 
0800 8F BF 13¢ CHAU #2048 : 1292 
08 A 08 A? 00 141 17$:  MOVL  8(Q_BLOCK), 8(Q_RECORD) + 1293 
5 AC D 146 188: MOVL FIB, R 3: 1295 
05 18 «OA 03 £1 O0146A BBC #3, 24(RO) 198 : 
OC A oc A 00 14F MOVL 1 (o_BLOCKS, 12(Q_RECORD) : 1297 
5 AC DO 00154 198 MOVL  FIB,"R : 1298 
05 18 «OA 04 £1 00158 BBC #4, 24(RO), 208 ; 
10 A6 10 A? 00 91 MOVIL 16(Q BLOCKS, 16(0_ RECORD) : 1300 
OC Ab 08 Aé D1 00162 208: CMPL 8(Q_RECORD), 12(Q"RECORD) + 1301 
OA 18 016 BLEQU 21$ ; 
06 80 AA €9 00169 BLBC <-128(BASE), 21$ + 1302 
80 AA 0669 ef 80 O16 MOVW #1641, -128(BASE) : 
6 0D 00173 21$: PUSHL Q_RECOR + 1303 
69 01 FB O17 CALLS #1, WRITE_QUOTA : 
04 AC DD 00178 22$:  PUSHL ABD + 1304 
56 OD 0178 PUSHL Q RECORD : 
0000v CF 02 FB 0017D CALLS #2, RET_QENTRY : 
04 018¢ RET : 1258 
56 05 0018 23$ TSTL Q_RECORD + 1309 
0S 13 901 & BEQL 22$ : 
O3DC—s BF BF 0187 CHAU #988 + 1310 
50 0288 CA 09 orc 24$ MOVL  § 696(BASE), RO : 1311 
49 12 00191 BNEQ 6$ : 
OOOFFFFF  &F 38 §=6AB D1 00193 CMPL 56(FCB), #1048575 + 1314 
05 1 00198 BLSSU-25$ : 
0850 8F BF 0019D CHMU =—s-« #2128 + 1315 
4 OO1A1 RET ; 
50 08 AC DO OO1A2 25$: MOVL  FIB, RO : 1316 
53 16 AO 3C 0016 MOVZWL (RO), TEMP1 : 
52 18 AO DO OO1AA MOVL 4(RO), TEMP2 : 1317 
01 DD OIAE PUSHL #1 : 1318 
0101 8F 68 00180 PUSHR #*M<RO,RS> 3 
00006 CF 93 FB 01B4 CALLS #3, EXTEND CONTIG : 
56 0 pO 00189 MOVL RO, Q RECORD ; 
58 oD 0018C PUSHL FCB + 1319 
00006 CF 01 FB 001B CALLS #1, MAKE_FCB_STALE ; 
50 08 AC dO 001C MOVL 16, RO + 1320 
16 AO 53 B0 O01C MOVW  TEMP1, 22(R0) ; 
50 08 AC D o1cB MOVL 1B, RO : 1321 
18 AO 52 DO OOICE MOVL TEMP2, 24(RO) ; 
50 08 aC D 103 MOVL 1B, RO : 1322 
1¢ AO 04 001D CLRL é (RO) ; 
B 11 OO1DA BRB $ ; 133) 
5 DD 0010C 268:  PUSHL #5 : 1326 
1 DD 0010 PUSHL #1 ; 
0 07 OO1E DECL. RO : 
50 10 (6 OO1E DIVL2 #16, RO : 
30 8840 SF OOIE PUSHAB @48(FCB) : 
00006 f FB 169 CALLS n, READ BLOCK 3 
7E FFEFFFFE © 8 0288 CA 1 BA iff EMUL #1. 696<BASE), #-1, ~(SP) : 1328 
50 50 BE 10 78 OO1FC EDIV #16, (SP)+, RO, RO : 


- 


QUOTAUTIL bso 
v04-003 


Jan-1985 18: 1g: 45 WANott Bliss-32 V4.0-742 
“0c t-1984 1 :36 F11X.BUGSRCJQUOTAUTIL.B32;1 
30 0 C4 1 MULL2 #32, RO : 
6 £0 ADDL RO, Q RECORD : 
20 00 6E C t 27$ MOVC #0, (SP), #0, #32, (Q_RECORD) ; 1331 
66 8 38 BISB2 #1, (Q RECORD) : 1332 
04 AG 04 A? 20 MOVO 4(4 BLOCK), 4(Q RECORD) : 1333 
C Ab € A? 70 0021 MOV 12(0 BLOCKS, 12TQ_RECORD) : 
56 0D 1A PUSHL Q_RETORD : 
69 01 FB 6 1¢ CALLS #7, WRITE_QUOTA : 
04 1F ET + 1344 
; Routine Size: 544 bytes, Routine Base: S$CODE$ + 0000 
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QUOTAUTIL B-Jan-19 5 18:18:45 AX-11 Bliss<-32 V4.0-742 Page 12 
yoe-00! “0c t-1984 13:18:48 F11X.BUGSRCJQUOTAUTIL.832;1 ° 35 
; GLOBAL ROUTINE FLUSH_QUO_CACHE : L_NORM NOVALUE = 
lee 
1 
FUNCTIONAL DESCRIPTION: 

This routine flushes dirty entries in the quota cache back to the 

quota file. 
CALLING SEQUENCE: 

FLUSH_QUO_CACHE () 
INPUT PARAMETERS: 

NONE 


Wr —OOONOU wr 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB ot wiue 


context set to RVN 


nS PAEQXQEAAAAAI AMIE 
MEUM (OO ODNOAUE WI" OOONOU 


; 1 1 : 
; 1 1 ; 
: 1 1 : 
; 1 1 : 
3 1 1 : 
3 1 1 : 
3 1 1 : 
; 1 1 ; 
3 1 1 : 
3 1 1 : 
3 1 1 : 
; 1 1 : 
; 1 1 : 
; 1 1 ; 
5 1 1 $ 
3 1 1 : 
3 1 1 
: 1 1 : 
; 1360 
; 1 1 QUTPUT PARAMETERS: : 
; : : NONE : 
; 1368 1 IMPLICIT OUTPUTS: : 
3 1 9° 1 NONE 3 
3 13 » % : 
3 1371 1 ! ROUTINE VALUE: ; 
3 1376 1 NONE : 
: 1373 «1 ; 
; 1374 1! SIDE EFFECTS: , ; 
3 132? : quota cache flushed, quota file modified : 
; 1377 1 !<=< : 
3 1378 1 3 
3 1379 § BEGIN : 
3 1380 : 
3 1381 BUILTIN : 
3 138 ; 
’ 1384 LITERAL : 
3 rH RECS_PER_BLOCK = 512 / DQFSC_LENGTH; ; 
3 1 Hy LOCAL : 
3 1 38 QUOTA_CACHE : REF BBLOCK, ' address of quota Egehe 3 
; 1 QUOTA_LIST : REF BBLOCKVECTOR C,VCASC_QUOLENGTH), 3 
3 1390 ' address of cache entries 3 
: 1391 FCB : REF BBLOCK, ! address of quota file FCB F 
3 1 38 REC_NUM, ' record number to read 3 
: 139 STATUS ' system service status 3 
: 1394 Q RECORD : REF BBL OS ‘ ' address of record read 3 
3 1339 LOCK_STATUS : VECTOR (2); ! LKSB for lock conversion : 
2 1 39 : 
3 ! a8 BIND_ COMMON; : 
3 1400 EXTERNAL ROUTINE : 
: 1401 ; 


2ERO_ON_ERROR, 


return zero on error signal (handler) 


oS2 
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QUOTA CACHE = .CURRENT_VCBCVCBS$L_QUOCACHE); 
IF .QOOTA_CACHE EQL 0 THEN RETURA; : 


ALLOCATION_LOCK (); 
FCB = .CURRENT VCBCVCBSL_QUOTAF CB); 


QUOTA_LIST = QO0OTA rid QUOLISTI; 
INCR J FROM 1 TO .GUOTA_CACHELOCA$W_QUOSIZE) 


QUOTA _CACHELVCASV CACHEVALID) 
1F COC TASCACHE VCASL_QUOCLKI 


13 
-Jan-1985 18:18:45 AX-11 Bliss- 
b-Jan-1995 13:18:42 F71X.BUGSRC) 


ALLOCATION_LOCK : L_NORM NOVALUE , ! serialize on volume 
READ BLOCK : RM 


3 ° : read a disk block 
CLEAN QUO_CACHE : L“NORM, 
REL_QOOTA-LOCK : L_NORM; 


Set up the condition handler to handle 1/0 errors. 


.FP = ZERO_ON_ERROR; 


' flush cache entry to record 
! release lock on cache entry 


Scan the quota cache, ay for valid dirty entries. If one is found, 
a 


read its record from the quo 


! nop if no quota cache 


SIf.J-1, VCASV_QUODIRTY) 
STE. J=1, VCASLTQUORECNUM] NEQ 0 


Nt 
EC_NUM 
Q_RECORD = READ_BLOCK (.RE PER_BLOC 
+ .FCBCFCBSL_STCBNJ, 1 
+ (REC MOD RECS_PER-BLOCK) * BOFSC_LENGTH; 
IF .Q RECORD GEQA $1 
THEN RERNEL_CALL (CLEAN_QUO_CACHE, .J, .Q_RECORD); 
REL_QUOTA_LOCK (.J); 
END; 


Now mark the quota cache invalid. If we are holding a cache lock, 
demote it down to NL to indicate that we are no longer holding 
cache contents. 


0; 
dD) nia 0 
BEGIN 
LOCK STAT 


C SC1} = ,QUOTA_CACHECVCASL_QUOCLKID]; 
STATOS = SENQW (EF F 


EFN = 
LKMODE = LCK$K_NLMOD 
FLAGS = 
LKSB = LOCK_STATUS 


If NOT ,ST 


STATUS" 
pen BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); 


file, update the record, and write it back. 


3 
Q 


2 v4 
UOTA 


-0-742 
UTIL.B32;1 


E 
LCKSM"NOQUEUE OR LCKSM_SYNCSTS OR LCKSM_CVTSYS OR LCKSM_CONVERT, 


roe 3 


LLL LLL LL 


vOo-008 


: 465 
: 666 


55 


1459 ¢ 
1460 END; 


50 


44 
EC ad 


EC ad 
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! end of routine 
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AX-11 Bliss-32 V4.0-742 P 4 
F11X.BUGSRCJQUOTAUTIL.632;1 — Ri 
FLUSH_QUO_ CACHE 
ZERO_ON_ERROR, CLEAN_QUO_CACHE 
SySSENOQ. BuGS_XGPERR ~ 
F usH QUO_CACHE, Save R2,.R3,R4,R5.R6,R7,RB ; 1345 
ZERO_ON_ERROR, (FP) + 1611 
-104TBASE), RO + 1417 
92(RO), QUOTA_CACHE ; 
4 3; 1418 
ALLOCATION_LOCK : 1420 
sO <BASE? RO + 1422 
Beno). QUOTA_LIST : 1438 
agers RB t 1424 
338, J, RO : 1427 
Quota bist R : 
#i, -T7(ROS, 28 : 
40. #24, -26(R0), #0 : 1428 
#0, #24, -20(R0), REC_NUM : 1431 
REC_NUM ; 
a 3 1432 
#16 REC_NUM, RO : 
a48(F CB) CROJ : 1433 
#3, READ BLOCK F 
#1, REC_RUM, #0, -(SP) > 1434 
a , (SP)+, R71, R1 : 
R1, RO, Q_RECORD ; 
Q RECORD “aS 2 > 1435 
#°M<R4R7> : 1436 
#2, CLEAN_QUO_CACHE ; 
: 1438 
#1, REL_QUOTA_LOCK : 
" { $ : 1424 
#1. 11(QUOTA_CACHE) + 1444 
4 (QU0TA_CACHE) > 1447 
4(QUOTA_CACHE), LOCK_STATUS+4 > 1450 
(SP) > 1455 
-(SP) : 
-(SP) ; 
igh : 
#78, -(SP) ; 
HBoeStans ; 
#30, "=(SP) ; 
#i1: SYSSENQW ; 
Stafus, 5 : 1456 


QUOTAUTIL -Jan-1985 1 AX-11 Bliss-32 V4.0-742 
yoee00$ b-dan ot EM a CLEP ete tet a Hee ee 


FEF 081 BUGW 
0000* 00083 ~ WORD <BUGS$_XQPERR! 4> 
04 00085 5$: RET 


; Routine Size: 182 bytes, Routine Base: S$CODE$ + 0220 
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468 ¢) GLOBAL ROUTINE DEACC_QFILE : L_NORM = 

a 

47 465 FUNCTIONAL DESCRIPTION: 

474 1e9 i This routine deaccesses the quota file and releases the FCB if it 
of? ree is idle. This routine must be aciled in kernel mode. 
47 230 i CALLING SEQUENCE: 

4? 47] DEACC_QFILE () 

480 238 i INPUT PARAMETERS: 

if pee 

48 476 i IMPLICIT INPUTS: 

484 47 : CURRENT_VCB: VCB of volume 

ret 278 context set to RVN 1 

tae 80 1 | OUTPUT PARAMETERS: 

ie if Ste 

490 : i IMPLICIT OUTPUTS: 

is cf) ae 

49 | ROUTINE VALUE: 

is Pisce 

4 i SIDE EFFECTS: 

rt s4 quota file disconnected from VCB, FCB deallocated 
499 ine 
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: Flush the quota file data blocks from the block buffer cache. 


KILL BUFFERS (1, =1); 


ee ee ce ce ce et ee ee ee ee ee ee ce ee el el ee ee ce el el el el el el el eel el el eel el eel eel el 
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= 
LE 


ACCTL, ! calculate remaining access control 
505 LCKMODE , ' Lock mode to convert access lock to. 
308 FCB : REF BBLOCK, ! FCB of quota file 
0 STATUS ! system service status 
4 4 QUOTA_CACHE : REF BBLOCK; ! address of quota cache block 
? ‘ BIND_ COMMON; 
§ 5 EXTERNAL ROUTINE 
KILL_BUFFERS : L_NORM, ! flush specified buffers from cache 
514 ti CONV_ACCLOCK : L_NORM ! convert access lock 
5 LOCK MODE : L_JSB {arG, | calculate lock mode from access ctl 
§ 09 DEQ COCK : LINORA, ' dequeue a loc 
8 DEACLOCATE : L-NORM ADDRESSING_MODE (GENERAL); ! deallocate system dynamic memory 
0 
4 
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Decrement access and lock counts on the FCB. 
Coanent= ~\eBLvCBSt_o cub asune oo. QUOTAF CB); 
ACCTL = 0; 
iF? FeBEFCBSU UCT = nego WCNT) = 1; 

THEN ACCTL = rvct? WRITE 
FCBCFCBSW_TCNT) = “cacecaeu.Tont? e 1; 
LCKMODE = 0; 
IF (FCBCFCBSW_ACNT] = .FCBCFCBSW_ACNT] - 1) NEQ 0 

LCKMODE = LOCK_MODE (.ACCTL); 

FCBCFCASW_REFCNT) = .FCBCFCBSW_REFCNT) = 1; 
Convert the access lock to reflect the remaining accessors. 


CONV_ACCLOCK (.LCKMODE, .FCB); 
' Release the quota cache lock, if there was one. Unlink and deallocate 
the quota cache block. 


QUOTA CACHE = sfuRRgnt VCBCVCBSL_QUOCACHE); 
LF, Q0OTA. CACHECVCASL_GUOCLKID) REQ 0 


BEGIN 
ior (.QUOTA_CACHECVCASL_QUOCLKID]); 


DEALLOCATE (. QUOTA CACHE); 
CURRENT_VCBLVCB$L_GUOCACHE) = 0; 
RETURN 1; 


END; ! end of routine DEACC_QFILE 


-EXTRN KILL BUFFERS com ACCLOCK 


SEXTRN LOCK"MODE, DEQ_ 
“EXTRN bEALCOC até 


000¢ ENTRY DEACC QFILE, Save R2,R3 
7E 1 CE MNEGL #1, -TSP) 
1 0D PUSHL 
00006 CF 2 F CALLS a KILL BUFFERS 
98 AA D MOVL #-104(BASE), R 
54 Ad DO 00 MOVL 84(RO), FCB 
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; Routine Size: 121 bytes, Routine Base: S$CODES + 0206 
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; 8 } $8 ! GLOBAL ROUTINE RET_QENTRY (Q_RECORD, ABD) : L_NORM = : 
3 71 1564 1 !+4 3 
s $7 1565 1! ; 
3 6, : ¢ ! FUNCTIONAL DESCRIPTION: : 
: 75 1 o8 B This routine copies the specified quota file record into the ; 
3 6 1 § 1! result string area of the buffer descriptor packet. This routine . 
3 a ; i : } must be called in kernel mode. : 
s 579 1 Le; 1 ! CALLING SEQUENCE: 3 
H 280 132? } : RET_QENTRY (ARG1, ARG2) é 
; 286 1575 1 ! INPUT PARAMETERS: 3 
3; 33 1328 1! ARG1: address of quota file record ; 
; 586 1877 1! $ 
; 585 1578 1 ! IMPLICIT INPUTS: 3 
; 586 1879 1! NONE 3 
; 587 1580 1! 3 
; 588 1581 1 ! OUTPUT PARAMETERS: 3 
; 589 1386 1! ARG2: address of buffer descriptor packet 3 
; 30 1585 1! 3 
; 591 1584 1! IMPLICIT OUTPUTS: 3 
3 238 1585 1! NONE 3 
; #59 1586 1! 3 
; 594 1587 1 ! ROUTINE VALUE: 3 
3; 4595 1588 1! 1 3 
; 596 1589 1! 3 
3; 597 1590 1 ! SIDE EFFECTS: : 
; 598 1591 1! NONE ; 
; 599 1236 1! 3 
; 600 1593 1 !-- : 
3; 601 1594 1 3 
: 60 1595 BEGIN F 
: 60 1596 3 
3: 606 1597 MA ; 
3; 605 1598 2 Q RECORD : REF BBLOCK,  ! quota file record 3 
; 606 1599 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTH); é 
3 pet 1609 ! descriptor arg : 
; 609 1e08 ! If the user provided a result length buffer, give him the Length : 
; 610 160 ! of the record. 3 
3 ot) lene : ; 
3 gig 1604 If .ABDCABDSC_RESL, ABN$W_COUNT] GEQ 2 3 
3; 6146 160 THEN 3 
3; 615 1608 BEGIN $ 
: 616 1609 (, ABDCABDSC_RESL, ABDSW_TEXT] + ABDCABDSC_RESL, ABDSW_TEXT] + 1)<0,16> = DOQFSC_LENGTH; 3 
: 8g 1811 me 
: 619 19\¢ ! Jf the user provided a result spring buffer, return as much of the 3 
3 ° 117 ; quota record as will fit (zero filling the buffer). : 
: 6 ¢ 1615 3 
: 6 1918 CHSCOPY (DOFSC_LENGTH g0-FECORD - 0, : 
> 626 161 -ABDCABDSC"RES, ABD$W~COUNT), ; 
3; 625 1618 -ABDLABDSC_RES, ABDSW_TEXT] + ABDCABDSC_RES, ABDSW_TEXT] + 1); ; 


etn 
a. 


22 A 


3; Routine Size. 


1619 

1631 ; RETURN 1; 

1621 

1622 END; 
50 
02 
51 
50 
9 
55 
51 
50 

00 06 BC 

50 


51 bytes, 


Routine Base: 
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F11X.BUGSRCJ 


! end of routine RET_QENTRY 
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rom 


413 . 
-Jan- 18:45 AX-11 Bliss-32 ¥‘.0-742 Page 21 
vou-005 gagern 8 ; 13:18:42 F11X.BUGSRCJOQU_7AUTIL.B832;1 (3 Vv 
: 6 1 16 ; GLOBAL ROUTINE CONN_QFILE (ABD, FIB) : L_NORM NOVALUE = 
Zs 1695} ise 
: 635 16 g 1 { FUNCTIONAL DESCRIPTION: 
3 6 j ! This routine causes the quota file for the volume set to be 
; 638 19 , : connected and made active. 
; 639 6 ! 
: i CALLING SEQUENCE: 
; gee 16 z i a CONN_QFILE (ARG1, ARG2) 
: 1634 i 
a 1635 1 | INPUT PARAMETERS: 
> 644 1636 1! ARG1: address of buffer descriptor vector 
> 645 1637 ! ARG2: address of user FIB 
> 646 6 i 
: i T INPUTS: 
: $08 1820 1 i nites “T p FLAGS: cleanup action and status flags 
> 649 1641 1! CURRENT_RVN: RVN of currently selected volume 
: 650 1648 1i CURRENT-VCB: VCB of currently selected volume 
> 65 1643 1! 
; 652 loca 1 | OUTPUT PARAMETERS: 
: 83 1ece 1 | — 
T OUTPUTS: 
: g33 1ee3 | ' MPL CORIRARY FB: FCB created for quota file 
: 1649 1: 
; ree 1650 1 | ROUTINE VALUE: 
Po ee 
FFECTS: ; 
; es 1684 — gat searched, quota file accessed (FCB created, etc.) 
5 664 1656 1 in 
: 665 1657 1 
3 666 1658 2 BEGIN 
: See 1860 3 MAP 
: , TOR C,ABDSC_LENGTHJ, 
: 66) 1603 ang i ? Fv wes déscriptor arg 
; 671 1668 ; FIB : REF BBLOCK: / user FI 
: 6 
; 67 1665 2 LOCAL : 
: : CK, ! FCB of quota file J 
or 1609 TEADER : REF BBtOrK: ' file hh of quota file 
; 676 1668 BUFFER : REF BBLOCK: ! disk block buffer 
; 678 1670 BIND_ COMMON; 
: 680 167 EXTERNAL ROUTINE ; 
: : RM NOVALUE, ! rebuild fcb from header 
: $e 1678 BUITDTEXT Feoe : L NORA NOVALUE , ' build extension fcbs 
; os 1675 ARBITRATE-ACCESS : C_JSB_2ARGS, | arbitrate file access 
> 684 167 SERIAL_F ICE : LLRORA? i serialize on given file 
; os 1879 FI 1 : LINORA, rin pike fa ‘rectory 
; SWITCH_VOLUME : L-NORM, i switch vo , 
: oes 1878 SEARCH”F CB : LINORM ADDRESSING _MODE (GENERAL), |! search FCB List 
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; 688 1680 READ_HEADER : L-NORM, ! read file header 5 
3; 689 1681 CREATE _FCB : LINORM; ' create an FCB ; 
; 690 16 § $ 
; 691 16 § 
; 69 1684 ' Check caller privilege = must. be! ‘system’. 3 
; 69 1952 i 3 
: 694 16 § 3 
; 695 168 IF NOT .CLEANUP PL Aesi che SYSPRV) 3 
3 636 1988 THEN ERR_ EXIT (SS$_NOPRIVS; : 
; 698 1690 ! Find the quota file in the + aaa The quota file must be located $ 
: $98 1691 ' RVN 1 if this is a volume set . : 
; 700 1936 i ' 3 
3; 701 169 PF 
; 70 1694 IF_ .CLEANUP_FLAGSCCLF -DIRECTORY] : 
s 70 1695 THEN FIND CAeD. .FIB, 5 
: 704 1696 2 SWITCH VOL UME (Fie Fipsu’ FID_RVNJ); ; 
3; 705 1697 IF "CURR RENT_RVN GTRU : 
; we 1698 THEN ERR EXIT. (SS$_BADQF ILE); : 
: 708 1700 ! Make sure the quota file is not already active. : 
: 709 1701 ! : 
3; 710 1086 $ ; 
: 711 170 IF .CURRENT_VCBCVCBSL pypres cas NEQ 0 ‘ 
: at in g THEN ERR_EXIT (SS$_QFACTIVE) : 
3; 6714 1706 2 ! Find the FCB, if any, and read the header. ‘ 
s #715 1707 2! ’ 
: 716 1708 § ; 
3 aA 1707 SERIAL_FILE (FIB CFIBSW_FIDJ); ‘ 
: 4h 4 Fa : FCB = PRIMARY _FCB = SEARCH_FCB (FIBCFIBSW_FIDJ); ; 
3: 721 1318 2 HEADER = READ_HEADER (FIBCFIBSW_FIDI); : 
s fez 1714 2 : 
: fe 1715 2! Create an FCB if none exists. ; 
3; 7246 1716 i : 
s 72 1717 ‘ 
: 726 1718 ,fce EQL 0 : 
3; 727 1719 ; 
: 08 1730 ay e MEP RIMARY FCB = FCB = CREATE_FCB (. HEADER) . 
: es ise IF .FCB CFCBSV_STALE) : 
3 oss 1352 REBLD_PRIM_FCB (.FCB, .HEADER); : 
3; 1725 ‘ 
3 eee 1768 BUILD_EXT_FCBS (.HEADER); : 
: A] i768 ; Check the quota file for suitability (contiguous, file format, etc.) : 
3; 738 1586 : 
; 739 44 IF NOT .HEADERCFH2$V_CONTIG) : 
: 740 17 ; OR .BBLOCK CHEADER rR Sy RECATTRJ, FATSB_RTYPE) NEQ FATSC_FIXED , ; 
3 741 173 OR .BBLOCK CHEADERCFH2SW~ RECATIRI, 4b Md LDP NEQ 0 é 
3; 74 Hays OR “BBL OCK LHEADER FH SW"RECATTRI, FATSW_RSIZE) NEQ DQFSC_LENGTH : 
s St 173? THEN ERR_EXIT (SSS “BADOFTLE LE); ° 
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; 745 1737 ' Check access interlocks. 3 
£46 1738 i ; 
74 17 ; 
3601 !ACGO468 1740 2 IF _NOT ARBITRATE ACCESS (FIBSM_WRITE, .FCB) ; 
; £43 =1 1763 THEN ERR_EXIT (SSS_ACCONFLICT): ; 
> 751 174 ! Now hook up the quota file FCB. : 
: 138 1744 i . ; 
Fae | 1745 : 
: 754 1746 3 IF NOT KERNEL CALL (MA MAKE aFcB, FCB) F 
3 £2? rie § THEN ERR_EXIT™ (SS$_INSFMEM) ! allocation failure on quota cache | 
: 757 1749 1 END; ! end of routine CONN_QFILE ; 
-EXTRN REBLD_PRIM_FCB, BUILD_EXT_FCBS F 
“EXTRN ARBITRATE ACCESS ; 
-EXTRN FIND, SEARCH H_FCB 3 
.EXTRN READ_HEADER, CREATE_FCB ; 
000C 00000 -ENTRY CONN_QFILE, Save R2,R3 : 3 
03 01 AA E8 00002 BLBS 1(BASE), 1$ : : 
24 BF 00006 CHMU = #36 : ; 
04 00008 RET ; : 
0B 6A 06 £1 90009 1$: BBC #6, (BASE), 2$ ; : 
7E D4 0000D CLRL (§P) ; ; 
7E 04 AC 7D OO00F MOVO ied, -(SP) ; : 
00006 CF 03 FB 00013 CALLS #3, FIND ; : 
50 08 AC b0 00018 2$: MOVL FIB RO ; ; 
7E 08 ad 3C 0001C MOVZWL g(RO) . (SP) ; : 
00006 CF 01 FB 90020 CALLS SaLTCH VOLUME ; : 
01 AO AA D1 00025 CMPL “360BA : F 
76 #1A Base BGTRU 3 3 
50 98 AA DO 00028 MOVL “f04,BASED, RO ; ; 
54 AO D5 0002F TSTL 84 (RO) ; : 
05 13 00032 BEQL ; : 
O3CC 8F BF 4 CHMU #972 3 3 
04 00038 RET ; ; 
7E 08 ac 04 (C1 00039 3$: ADDL3 #4, FIB, -(SP) : : 
00006 CF 01 FB 000 ; CALLS #1, SERIAL_FILE ; ; 
7E 08 AC 04 C1 0004 ADDL3 #4, FIB, -TSP) F ; 
000000006 00 1 FB 00048 CALLS #1, SEARCH FCB : : 
08 AA 0 DO 0004F VL RO, 8(BASEY : 3 
: 53 0 00 00053 VL. RO. FCB ; 3 
ie 08 AC 04 C1 00056 ADDL3 #4, FIB, -(SP) F : 
00006 CF 91 FB 0005 CALLS #1, READ_HEADER ; : 
52 9 DO 0006 MOVL RO, HEA 3 3 
5 D3 006 TSTL FCB : : 
10 12 0006 BNEQ 4$ : : 
52 DD 0067 PUSHL HEADER ; F 
00006 CF 1 FB 69 CALLS #1, CREATE_FCB ; : 
53 9 D 06 MOVL : 3 
08 AA D0 MOVL CB, S(BASE) ; ; 
0D 1 13 BRB 33 : ; 
09 23. AS E9 00077 4S: BLBC S(FCB), 5$ ; : 
52 DD 00078 PUSHL HEADER : ; 
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#1, BUILD_EXT_FCBS 
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: 759 1750 1 GLOBAL ROUTINE MAKE_QFCB (FCB) : L_NORM = 
; 760 1751 14 
; 761 17 § 1 !4¢ 
s 17 1! 
; te? 1785 : FUNCTIONAL DESCRIPTION: 
s 765 1756 1! This routine hooks up the specified FCB to be the FCB for the 
: ree eA : volume (set) quota file. This routine must be called in kernel mode. 
: 768 1759 1 ! CALLING SEQUENCE: 
; 769 1760 1! MAKE_QFCB (ARG1) 
s 770 1761 1! 
> oe 1096 1 ! INPUT PARAMETERS: 
3; 77 1765 1! ARG]: address of FCB to hook up 
: 77 1764 1! 
: 776 1765 1°! IMPLICIT INPUTS: 
: 775 1766 1! CURRENT _VCB: VCB of volume 
3; 776 1767 1! 
. Tee 1768 1 ! OUTPUT PARAMETERS: 
: 778 1769 1! NONE 
; 779 1770 1! 
; 780 1771 1°! IMPLICIT OUTPUTS: 
3; «783 ere s NONE 
; 78 1773 1! 
; 78 1774 1 ! ROUTINE VALUE: 
; 786 1775 1! 1 if successful 
; 785 1776 1! 0 if allocation failure on cache block 
; 786 uae 
; 787 1778 1°! SIDE EFFECTS: 
; 788 1779 1! quota file FCB hooked into FCB List and quota pointer 
: 789 1780 1! 
: 790 1781 1 !-- 
: 791 17Re 1 
:; 79 1783 2 BEGIN 
; 7 1784 § 
: 794 1785 MAP 
; 795 1786 FCB : REF BBLOCK; ! FCB to hook up 
; 796 1787 3 
; 797 1788 LOC 
: 798 1789 QUOTA_CACHE : REF BBLOCK, ! quota cache block allocated 
: 4 17 ACB : REF BBLOCK; ! AST control block withis: quota block ' 
: 801 1736 BIND_COMMON; 
; Ht 179 
3 0 1794 EXTERNAL 
3001 'cCps0009 1795 CLUSGL_CLUB : ADDRESSING_MODE (GENERAL), 
: 804 179 SCHSGL_SWPPID : ADDRESSING_MODE (GENERAL); 
; 805 179 ! PID of swapper process 
; 806 1798 
; 807 1799 EXTERNAL ROUTINE 
; 808 1800 ALLOCATE : L-NORM ADDRESSING_MODE (GENERAL), ! allocate system dynamic memory 
; 809 1801 CACHE LOCK : L_NORM ' get spec ipl cache lock 
; 810 180¢ XOPSURLOCK_QUOTA : ADDRESSING_MODE (GENERAL); 
; «6811 180° ! release lock with value block 
3 sig 1804 
: 81 1805 i 
; «814 1806 ' Allocate the cache block and Link it to the VCB. 


— 
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IF .FCBCFCBSW_WCNT] GTRU 1 

AND .BBLOCK CCURRENT_UCBCUCBSL_DEVCHAR2], DEV$V_CLUJ 

AND .CLUSGL_CLUB NEQ 

AND .FCBCFCBSL_CACHELKID] EQL 0 

THEN CACHE_LOCR (.FCBCFCBSL_LOCKBASIS), FCBCFCBSL_CACHELKIDJ, 2); 


Finally enter the quota file pointer in the VCB. 


FARSELESES 


CURRENT _VCBCVCBS$L_QUOTAFCB) = .FCB; 
CLEANUP_FLAGSCCLF _DEACCOFILE] = 1; 


OONO UNE UN + wot oo 


‘Co Od Op Od Od Oo Od Op CD CD 
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MIMI 


60 
$0) RETURN 1; 
368 END; ! end of routine MAKE_QFCB 


-EXTRN CLUSGL_CLUB, SCHSGL_SWPPID 
-EXTRN ALLOCATE, CACHE LOCR 
-EXTRN XQPSUNLOCK_QUOTA 


3 gi) 1 e ! $ 
; 1 1808 5 
3 B17 its QUOTA_CACHE = ALLOCATE (MAXU (.CURRENT_VCBCVCB$W_QUOSIZEJ, 1) * VCASC_QUOLENGTH : 
; 818 1810 + SBYTEOFFSET TVCASL_QUOCIST), CACHE_TYPE); ; 
3 $38 1811 IF .QUOTA_CACHE EQL 0 3 
3 $9 1 \¢ THEN RETURN 0; 3 
: 1 181 QUOTA. CACHE vCa$Sw_Quosize) = MAXU (.CURRENT_VCBLVCB$W_QUOSIZEJ, 1); 3 
: $¢ 1ei3 CURRERT_VCBLVCBSL-QUOCACHE) = »QUOTA_CACHE; : 
: 824 iste ! Initialize the AST control blocks in the quota cache header. One is 3 
3 5 1817 ! used to post blocking AST'’s to the swapper to release cache entries. F 
3 § 1318 ! The other is used to trip the cache flush process to flush the entire F 
; 181 ' cache. : 
Be : 
; 850 ; ACB = QUOTA CACHELVCAS$B_QUOACB); 3 
; 831 1 ACB ACB$B_RAOD) = PSLSC_KERNEL + ACBSM_NODELETE; $ 
3 S36 1S 4 ACBCACBSL_PID) = .SCHSGC_SWPPID; : 
; 83 1825 2 ACBLACBSL-AST) = XQPSUNLOCK QUOTA; ; 
: 834 1826 2 ACB = QUOTA CACHELVCA$B_QUOFLUSHACB); ; 
3 J = PSLSC_KERNEL + A 8 LETE; ; 

835 1827 ¢ ACBCACBSB_RAOD] = PSLSC"KERNEL + ACBSM_NODELETE ; 
s 837 1829 ! Bump up the access counts in the FCB to show an accessed file. 3 
; 838 1s 0 ! Lock it against truncates. F 
: B20 1B32 5 
3; 841 1833 FCBCFCBSW_REFCNT) = .FCBCFCBSW_REFCNT] + 1; 3 
$ eee 1834 FCBLFCBSW_ACNT) = .FCB FCBSW_ACNT) #13 é 
7. 84 1835 2 FCBCFCBSW_TCNTJ = .FCBCFCB$W-TCNT) + 1; ; 
300) jacenees 1338 FCBCFCBSW_WCNT) = .FCBCFCBSW_WCNT) + 1; : 
908 'ACS0468 183 ! If the quota file is already write accessed, take out the cache lock : 
3004 !ACGO0468 1839 ! on the write access to prevent use of the cache. 3 
3005 reste 1840 ' ; 
3006 '!ACGO4 1841 3 
3007 1 § s 
3008 1 : 
3009 1844 3 
: 1845 $ 
3 1846 3 
: 1847 3 
3 1848 3 
3 1849 3 
: 1850 3 
3 : 1 3 
3 1 : : 
3 1854 : 
3 ! 5 3 
: 1839 : 


& oss 3 
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MAKE _QFCB, Save nothing 


-104(BASE), RO 
96(RO), RO 


4 (BAS 
RO) 

» RO 
(QU 
64(BASE)> RO 


4(RQ) 


RO) 

3 CACHE _LOCK 
-164 (BASES, RO 
FCB, 84(ROS 
#2, 3(BASE) 

#1. RO 


RO 


OTA_CACHE) 
OTA_CACHE, 92(RO) 
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PSECT SUMMARY 
Bytes Attributes 
1284 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


oucesnee Symbols -<------ Pages Processing 
Total Loaded Percent Mapped Time 
18619 103 0 1000 00:02.0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:QUOTAUTIL/OBJ=OBJ$:QUOTAUTIL MSRC$:QUOTAUTIL/UPDATE=(BUG$:QUOTAUTIL) 
1284 1588's + 0 data bytes 


; Lines/CPU Min: 1703" 
: Lexenes/CPU-Rin: 55798 


tion Complete 
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